inherited fCategoria: TfCategoria
  Left = 350
  Top = 189
  Width = 560
  Height = 473
  Caption = 'fCategoria'
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lbl2: TLabel [0]
    Left = 225
    Top = 49
    Width = 48
    Height = 13
    Caption = 'Descri'#231#227'o'
  end
  object lbl1: TLabel [1]
    Left = 25
    Top = 49
    Width = 48
    Height = 13
    Caption = 'Descri'#231#227'o'
  end
  inherited Panel1: TPanel
    Top = 392
    Width = 544
    inherited btnIncluir: TdxButton
      Left = 150
    end
  end
  object dbedtDESCRICAO: TDBEdit [3]
    Left = 224
    Top = 65
    Width = 289
    Height = 21
    CharCase = ecUpperCase
    DataField = 'DESCCATEGORIA'
    DataSource = DtSrc
    TabOrder = 1
    OnKeyPress = FormKeyPress
  end
  object dbgrd1: TDBGrid [4]
    Left = 24
    Top = 87
    Width = 489
    Height = 290
    DataSource = DtSrc
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'COD_CATEGORIA'
        Title.Caption = 'C'#243'digo'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DESCCATEGORIA'
        Title.Caption = 'Descri'#231#227'o do Sub Grupo'
        Width = 360
        Visible = True
      end>
  end
  object pnl1: TPanel [5]
    Left = 0
    Top = 0
    Width = 544
    Height = 40
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvNone
    Color = 11189162
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    object lbl3: TLabel
      Left = 153
      Top = 8
      Width = 236
      Height = 24
      Caption = 'Cadastro de Sub. Grupos'
    end
    object lbl4: TLabel
      Left = 155
      Top = 8
      Width = 236
      Height = 24
      Caption = 'Cadastro de Sub. Grupos'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
  end
  object dbedtDESCRICAO1: TDBEdit [6]
    Left = 24
    Top = 65
    Width = 197
    Height = 21
    CharCase = ecUpperCase
    DataField = 'GRUPO'
    DataSource = DtSrc
    TabOrder = 4
    OnKeyPress = FormKeyPress
  end
  inherited DtSrc: TDataSource
    DataSet = ds_grupo
    Left = 369
    Top = 169
  end
  object sds_grupo: TSQLDataSet
    CommandText = 
      'select c.COD_CATEGORIA, '#13#10'          c.COD_FAMILIA, '#13#10'          c' +
      '.DESCCATEGORIA,  '#13#10'          f.DESCRICAO as GRUPO '#13#10' from CATEGO' +
      'RIAPRODUTO c '#13#10' inner join FAMILIA f on f.ID_FAMILIA = c.COD_FAM' +
      'ILIA '#13#10'where c.COD_FAMILIA = :id'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.SQLObitos
    Left = 264
    Top = 168
    object sds_grupoDESCCATEGORIA: TStringField
      FieldName = 'DESCCATEGORIA'
      Required = True
      Size = 30
    end
    object sds_grupoCOD_CATEGORIA: TIntegerField
      FieldName = 'COD_CATEGORIA'
    end
    object sds_grupoCOD_FAMILIA: TIntegerField
      FieldName = 'COD_FAMILIA'
      Required = True
    end
    object sds_grupoGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = []
      Size = 80
    end
  end
  object dsp_grupo: TDataSetProvider
    DataSet = sds_grupo
    UpdateMode = upWhereKeyOnly
    Left = 296
    Top = 168
  end
  object ds_grupo: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_grupo'
    Left = 328
    Top = 168
    object ds_grupoDESCCATEGORIA: TStringField
      FieldName = 'DESCCATEGORIA'
      Required = True
      Size = 30
    end
    object ds_grupoCOD_CATEGORIA: TIntegerField
      FieldName = 'COD_CATEGORIA'
    end
    object ds_grupoCOD_FAMILIA: TIntegerField
      FieldName = 'COD_FAMILIA'
      Required = True
    end
    object ds_grupoGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = []
      Size = 80
    end
  end
end
